VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsFileInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private strFileName As String
Private lngFileLength As Long

Public Property Let FileName(strNewFileName As String)
  strFileName = strNewFileName
End Property

Public Property Get FileName() As String
  FileName = strFileName
End Property

Public Property Let FileLength(lngNewFileLength As Long)
  lngFileLength = lngNewFileLength
End Property

Public Property Get FileLength() As Long
  FileLength = lngFileLength
End Property
